home *** CD-ROM | disk | FTP | other *** search
- (if (= @language "deutsch")
- (
- (SET Intro "Wilkommen zum Installer-Script für XFH")
- (SET PLace "Wohin soll das XFH-Paket hinkopiert werden ?")
- )
- )
- (if (= @language "english")
- (
- (SET Intro "Welcome to the installer-script for XFH")
- (SET Place "Where do you want to place the XFH-package. A drawer, called XFH will ce created")
- )
- )
-
- (MESSAGE Intro)
-
- (SET PackDir
- (ASKDIR
- (PROMPT Place)
- (HELP "")
- (DEFAULT "sys:")
- )
- )
-
- (SET XDest (tackon PackDir "XFH"))
-
- (RUN (CAT "makdir \""XDest"\""))
-
- (COPYFILES
- (SOURCE ":DiskUtil/Crunch/XFH/")
- (DEST XDest)
- (ALL)
- (INFOS)
- )
-